home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Over 1,000 Windows 95 Programs
/
Over 1000 Windows 95 Programs (Microforum) (Disc 1).iso
/
1138
/
source.zip
/
FRMFOLDR.FRM
< prev
next >
Wrap
Text File
|
1995-01-18
|
3KB
|
112 lines
VERSION 2.00
Begin Form FRMFOLDR
BackColor = &H00C0C0C0&
BorderStyle = 3 'Fixed Double
Caption = "Create New Folder"
ClientHeight = 2640
ClientLeft = 2820
ClientTop = 3048
ClientWidth = 4848
ClipControls = 0 'False
Height = 3060
Left = 2772
LinkTopic = "Form1"
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 2640
ScaleWidth = 4848
Top = 2676
Width = 4944
Begin TextBox txtfile
Height = 372
Left = 1920
TabIndex = 5
Top = 240
Width = 2052
End
Begin TextBox txtdesc
Height = 372
Left = 1920
TabIndex = 2
Top = 840
Width = 2052
End
Begin CommandButton Command2
Caption = "&Cancel"
Height = 492
Left = 2640
TabIndex = 1
Top = 1920
Width = 972
End
Begin CommandButton btnok
Caption = "&OK"
Default = -1 'True
Enabled = 0 'False
Height = 492
Left = 1320
TabIndex = 0
Top = 1920
Width = 972
End
Begin Label Label2
BackColor = &H00C0C0C0&
Caption = "Description"
Height = 492
Left = 840
TabIndex = 4
Top = 840
Width = 972
End
Begin Label Label1
BackColor = &H00C0C0C0&
Caption = "Filename"
Height = 492
Left = 840
TabIndex = 3
Top = 240
Width = 972
End
End
Option Explicit
Sub btnok_Click ()
Unload frmfoldr
End Sub
Sub chkfields ()
If Len(txtfile) > 0 And Len(txtdesc) > 0 Then btnok.Enabled = True Else btnok.Enabled = False
End Sub
Sub Command1_Click ()
Unload frmfoldr
End Sub
Sub Command2_Click ()
Unload frmfoldr
End Sub
Sub Form_Load ()
'Center it
Left = (screen.Width - Width) / 2
Top = (screen.Height - Height) / 2
End Sub
Sub Form_Paint ()
txtfile.SetFocus
End Sub
Sub txtdesc_Change ()
Call chkfields
End Sub
Sub txtfile_Change ()
Call chkfields
End Sub